home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FINDIM.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  135 lines
  1. ;\|
  2. ;FINDIM.SRC     Translated from FINDIM.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;PATIENT  11:30:17 AM  14/ 1/90  |
  4. OPEN_FILES:
  5.     define(FIELD1|D|10||)
  6.     define(MENU_REC|A|65||15)
  7.     define(REC_CHOICE|N|2||)
  8.     define(A1|A|2||)
  9.     define(CODCTR|N|2||)
  10.     define(FIELD2|D|10||)
  11.     open(PATIENT||1|EXIT)
  12.     open(RECALLS||1|)
  13.     trap(S|G|SAVE_RECS)
  14.     trap(1|G|CHECK)
  15.     trap(D|I)
  16.     trap(C|I)
  17.     trap(Q|G|EXIT)
  18.     trap(I|G|EXIT)
  19. MOUNT_SCRS:
  20.     mount(PATIENT|S||)
  21. START:
  22.     enter(COD.PAT.NAME||||Y|N|N|||N)
  23.     find(G|COD.PAT.NAME|EXIT|)
  24.     RECORD.NUMBER = (COD.REF)
  25.     find(M|RECORD.NUMBER|EXIT|N)
  26. NEW:
  27.     gosub RECMENU
  28.     enter(COD[3]||||N|N|N|||N)
  29.     enter(COD.D[3]||||N|N|N|||N)
  30. SAVE_RECS:
  31.     RECORD.NUMBER = (COD.REF)
  32.     find(M|RECORD.NUMBER|EXIT|N)
  33.     COD.PAT.NAME = (PATIENT.NAME)
  34.     COD.REF = (RECORD.NUMBER)
  35.     A1 =mid(COD.D[3]|1|2|)
  36.     if COD[3] = ("****") goto NEW
  37.     save(RECALLS|N|Y)
  38. CHECK:
  39.     clr(RECALLS|B)
  40.     clr(PATIENT|B)
  41.     find(N|RECALLS|EXIT|)
  42.     if COD[3] <> ("****") goto CHECK
  43.     RECORD.NUMBER = (COD.REF)
  44.     find(M|RECORD.NUMBER|EXIT|N)
  45.     goto NEW
  46. CLR_RECS:
  47.     clr(PATIENT|B)
  48.     clr(RECALLS|B)
  49.     goto START
  50. EXIT:
  51.     run("recmenu")
  52. NEWX:
  53.     clr(RECALLS|B)
  54.     ret
  55. RECMENU:
  56.     MENU_REC[1] = (" A - (1) FIRST TRIPLE DONE                 0101A")
  57.     MENU_REC[2] = (" B - (2) SECOND TRIPLE DONE                0102B")
  58.     MENU_REC[3] = (" C - (3) THIRD TRIPLE DONE                 0103C")
  59.     MENU_REC[4] = (" D - (M) MMR DONE                          0104D")
  60.     MENU_REC[5] = (" E - (REF) REFUSED ALL                     0105E")
  61.     MENU_REC[6] = (" F - FIRST TRIPLE DUE                      0106F")
  62.     MENU_REC[7] = (" G - (B) PRE-SCHOOL BOOSTER DONE           0107G")
  63.     menu(1|10|8|44||MENU_REC|REC_CHOICE|7|43|REC_MEN_R||"IMMUNISATION RECALL"|N)
  64.     if REC_CHOICE = (1) do
  65.         {
  66.         COD[3] = ("1")
  67.         COD.D[3] = (DATE.OF.BIRTH+152)
  68.         }
  69.     if REC_CHOICE = (2) do
  70.         {
  71.         COD[3] = ("2")
  72.         COD.D[3] = (DATE.OF.BIRTH+334)
  73.         }
  74.     if REC_CHOICE = (3) do
  75.         {
  76.         COD[3] = ("3")
  77.         COD.D[3] = (DATE.OF.BIRTH+456)
  78.         }
  79.     if REC_CHOICE = (4) do
  80.         {
  81.         COD[3] = ("M")
  82.         COD.D[3] = (DATE.OF.BIRTH+1642)
  83.         }
  84.     if REC_CHOICE = (5) do
  85.         {
  86.         COD[3] = ("REF")
  87.         COD.D[3] = (2451528)
  88.         }
  89.     if REC_CHOICE = (6) do
  90.         {
  91.         COD[3] = ("")
  92.         COD.D[3] = (DATE.OF.BIRTH+91)
  93.         }
  94.     if REC_CHOICE = (7) do
  95.         {
  96.         COD[3] = ("B")
  97.         COD.D[3] = (2451528)
  98.         }
  99. REC_MEN_R:
  100.     ret
  101. \STPATIENT 
  102.  
  103.  
  104.  
  105.  
  106.  
  107.                   ┌─────────────────────────────────────────────┐
  108.                   │                                             │
  109.                   │ PATIENT NAME:&                          <   │
  110.                   │ ADDRESS     :&                              │
  111.                   │ AREA        :&                              │
  112.                   │ DOB         :&         <                    │
  113.                   │                                             │
  114.                   │        CODE :&                              │
  115.                   │ RECALL DATE :&                              │
  116.                   └─────────────────────────────────────────────┘
  117.  
  118.  
  119.  
  120.                PRESS F10 FOR SAVE AND FOR NEXT PATIENT OR PRESS RETURN
  121.                FIND NEXT AND PREV WILL NOT WORK HERE.
  122.                  <END> key Find Next
  123.  
  124.  
  125.  
  126. \
  127. COD.PAT.NAME
  128. ADDRESS1
  129. AREA
  130. DATE.OF.BIRTH
  131. COD[3]
  132. COD.D[3]
  133. \
  134.  
  135.